10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE [159]"
92 GETR$:IFR$<>CHR$(32)THEN92
93 RETURN
95 PRINT"  [194]ETTER LUCK WITH THE NEXT QUESTION.[159]":RETURN
100 POKE53280,0:POKE53281,0:POKE53272,23:POKE646,3
101 PRINT"[147]      [193][160][212][208][213][199][160][197][196][213][195][193][212][201][207][206][193][204][160][208][210][207][199][210][193][205]
102 [153]"           ASC(null)(null)CLOSELEN64 LEN(null)(null)(null)(null)(null)VAL(null)(null)
105 PRINT"                                        [146]";
110 PRINT"                                        [146]";
115 PRINT"     [208]RACTICE [208]ROBLEMS IN [193]RITHMETIC    [146]";
120 PRINT"                                        [146]";
125 PRINT"           [199]RADE 3     [208]ART 2           [146]";
130 PRINT"                                        [146]";
135 PRINT"               [204]ESSON  3                [146]";
140 PRINT"                                        [146]";
145 PRINT"           [199]ENERAL [208]ROBLEMS    [159]         [146]";
150 PRINT"                                        [146]";
155 PRINT"                                        [146]"
160 PRINT"                  WHC "
165 GOSUB90
170 PRINT"[147]       [193]ND AWAY WE GO......."
175 GOSUB81:GOSUB50:GOSUB80
200 PRINT"[152][147]               [209]UESTION 1 [146][159]":Z=0
205 PRINT"  [198]IND THE COST OF THE FOLLOWING
210 [153]"  ARTICLES:  BASEBALL $2.60; BAT $7.50
215 PRINT"  GLOVE $9.25. ([196]ON'T FORGET THE          $ SIGN)"
220 GOSUB81:GOSUB70
225 PRINT"             [145]"
230 INPUT A$
235 IFA$<>"$19.35"THEN 250
240 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
245 P=P+1:GOTO300
250 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
255 IFZ=2THENG=G+1:GOTO275
260 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
265 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
275 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  $19.35 [150] ":GOSUB82
280 PRINT"   2.60 + 7.50 +2.25 = 19.35   "
295 GOSUB82:GOSUB90
300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
305 PRINT"  [199]ILLIAN PICKED 20 PINTS OF BERRIES.
310 [153]"  LEFT$OW MANY MORE MUST SHE PICK TO MAKE
315 PRINT"  45 PINTS?"
320 GOSUB81:GOSUB70
325 PRINT"             [145]"
330 INPUT A$
335 IFA$<>"25"THEN 350
340 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
345 P=P+1:GOTO400
350 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
355 IFZ=2THENG=G+1:GOTO375
360 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
365 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
375 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  25 [150] PINTS.":GOSUB82
380 PRINT"   45 - 20 = 25      "
395 GOSUB82:GOSUB90
400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
405 PRINT"  [193] FARMER HAS 420 SHEEP IN TWO FIELDS.
410 [153]"  RIGHT$F 236 SHEEP ARE IN ONE FIELD, HOW
415 PRINT"  MANY ARE IN THE OTHER FIELD?"
420 GOSUB81:GOSUB70
425 PRINT"             [145]"
430 INPUT A$
435 IFA$<>"184"THEN 450
440 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
445 P=P+1:GOTO500
450 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
455 IFZ=2THENG=G+1:GOTO475
460 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
465 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
475 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  184 [150] SHEEP ":GOSUB82
480 PRINT"   420 - 236 = 184             "
495 GOSUB82:GOSUB90
500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
505 PRINT"  [193] FARMER TOOK 85 CHICKENS TO MARKET
510 [153]"  AND SOLD ALL BUT 9 OF THEM.
515 PRINT"  [200]OW MANY CHICKENS DID HE SELL?"
520 GOSUB81:GOSUB70
525 PRINT"             [145]"
530 INPUT A$
535 IFA$<>"76"THEN 550
540 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
545 P=P+1:GOTO600
550 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
555 IFZ=2THENG=G+1:GOTO575
560 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
565 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
575 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  76 [150] CHICKENS.":GOSUB82
580 PRINT"   85 - 9 = 76                 "
595 GOSUB82:GOSUB90
600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
605 PRINT"  [193] MAN DROVE 263 MILES ONE DAY AND
610 [153]"  178 MILES THE NEXT.
615 PRINT"  [200]OW MANY MILES DID HE DRIVE IN ALL?"
620 GOSUB81:GOSUB70
625 PRINT"             [145]"
630 INPUT A$
635 IFA$<>"441"THEN 650
640 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
645 P=P+1:GOTO700
650 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
655 IFZ=2THENG=G+1:GOTO675
660 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
665 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
675 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  441 MILES
680 [153]"   263 + 178 = 441             "
695 [141]82:[141]90
700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
705 [153]"  LEFT$OW MUCH CHANGE WILL RIGHT$ GET FROM
710 PRINT"  5 DOLLARS IF [201] BUY A HAT FOR $3.85?"
720 GOSUB81:GOSUB70
725 PRINT"             [145]"
730 INPUT A$
735 IFA$<>"$1.15"THEN 750
740 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
745 P=P+1:GOTO800
750 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
755 IFZ=2THENG=G+1:GOTO775
760 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
765 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
775 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $1.15     [150]"
780 PRINT"   5.00 - 3.85 = 1.15           "
795 GOSUB82:GOSUB90
800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
805 PRINT"  [193] STOREKEEPER HAD 65 CANS OF CORN
810 [153]"  AND SOLD 27 CANS.  LEFT$OW MANY WERE
815 PRINT"  LEFT?"
820 GOSUB81:GOSUB70
825 PRINT"             [145]"
830 INPUT A$
835 IFA$<>"38"THEN850
840 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
845 P=P+1:GOTO900
850 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
855 IFZ=2THENG=G+1:GOTO875
860 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
865 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
875 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  38 [150] CANS."
880 PRINT"   65 - 27 = 38                 "
895 GOSUB82:GOSUB90
900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
905 PRINT"  [205]ARY FOUND SHE HAD $1.15 LEFT OUT
910 [153]"  $5.   LEFT$OW MUCH HAD SHE SPENT?
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
935 IFA$<>"$3.85"THEN950
940 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
945 P=P+1:GOTO1000
950 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
955 IFZ=2THENG=G+1:GOTO975
960 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
965 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $3.85 [150] "
980 PRINT"   5.00 - 1.15 = 3.85      "
995 GOSUB82:GOSUB90
1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
1005 PRINT"  [201]N THREE TRAINS THERE WERE 43 CARS,
1010 [153]"  27 CARS, AND 36 CARS.
1015 PRINT"  [200]OW MANY CARS WERE THERE IN ALL?"
1020 GOSUB81:GOSUB70
1025 PRINT"             [145]"
1030 INPUT A$
1035 IFA$<>"106"THEN1050
1040 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
1045 P=P+1:GOTO1100
1050 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1055 IFZ=2THENG=G+1:GOTO1075
1060 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
1065 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1075 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  106 [150] CARS."
1080 PRINT"   43 + 27 + 36 = 106      "
1095 GOSUB82:GOSUB90
1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
1105 PRINT"  [193] CLASS WANTED A NEW PICTURE THAT
1110 [153]"  COST $7.50.  (null)HE TEACHER SAID THERE
1115 PRINT"  WAS ONLY $4.95 IN THE CLASS FUND.
1117 [153]"  LEFT$OW MUCH DID IT LACK?"
1120 [141]81:[141]70
1125 [153]"             ON"
1130 [133] A$
1135 [139]A$[179][177]"$2.55"[167]1150
1140 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1145 P[178]P[170]1:[137]1200
1150 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1155 [139]Z[178]2[167]G[178]G[170]1:[137]1175
1160 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1165 [153]"OPENONON                                        ONONONONONONON":[137]1125
1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1175 [153]"ONON   (null)HE CORRECT ANSWER IS  $2.55 DEF "
1180 [153]"   7.50 - 4.95 = 2.55      "
1195 [141]82:[141]90
1200 [153]"LOAD           (null)EPORT LENARD WAIT"
1205 D[178]W[171]G:C[178]10[171]W
1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 PRINT"                 ";C
1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 [153]"                 ";D
1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
1235 PRINT"                 ";G;""
1245 GOSUB90
1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
1270 IFR$="R"THENRESTORE:GOTO100
1275 RESTORE
1280 PRINT"[147] [210]ETURNING TO THE MENU
1285 [147]"MENU",8
1290 [138]
1295 [128]
1300 [143] BILL CUMBERLAND 90:12:18